perm filename FORIO.F4[TMP,LCS] blob sn#170775 filedate 1975-07-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		CALL MIXER
C00003 ENDMK
CāŠ—;
	CALL MIXER
	END
	SUBROUTINE GETNUM(R)
	ACCEPT 1,R
1	FORMAT(F)
	RETURN
	END
	SUBROUTINE GTNUM2(R1,R2)
	ACCEPT 2,R1,R2
2	FORMAT(2F)
	RETURN
	END
	SUBROUTINE PNUM(DUR)
	TYPE 3,DUR
3	FORMAT(' TOTAL DUR = ',F8.3)
	RETURN
	END